home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Concept 6
/
CD Concept 06.iso
/
mac
/
UTILITAIRE
/
RLaB
/
rlib
/
disp.r
< prev
next >
Wrap
Text File
|
1994-09-23
|
588b
|
28 lines
//-------------------------------------------------------------------//
// Syntax: disp ( S )
// Description:
// The disp function does two things,
// 1) If the argument is a matrix, it prints the matrix without the
// variable label to the standard output.
// 2) If the argument is a string, it prints the string to the
// standard output.
//-------------------------------------------------------------------//
disp = function ( S )
{
if (class (S) == "string")
{
fprintf ("stderr", "%s\n", S[1]);
else if (class (S) == "num") {
S + 0 ?
}}
return 1;
};